Visual Basic 5 Developer's Kit

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / stereopk / form1.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1996-03-09 | 13.1 KB | 450 lines

VERSION 4.00 Begin VB.Form Form1 Caption = "Northeast Data StereoPak" ClientHeight = 3345 ClientLeft = 2835 ClientTop = 1860 ClientWidth = 5175 Height = 3750 Left = 2775 LinkTopic = "Form1" ScaleHeight = 3345 ScaleWidth = 5175 Top = 1515 Width = 5295 Begin NedgaugeLib.Nedgauge Nedgauge3 Height = 855 Left = 2160 TabIndex = 14 Top = 1320 Width = 855 _version = 65536 _extentx = 1508 _extenty = 1508 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 highalarmcolor = 255 lowalarmcolor = 65280 highalarm = 85 lowalarm = 15 orientation = 2 facecolor = 12632256 normalcolor = 16777215 End Begin NedgaugeLib.Nedgauge Nedgauge2 Height = 735 Left = 1080 TabIndex = 13 Top = 1440 Width = 735 _version = 65536 _extentx = 1296 _extenty = 1296 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 highalarmcolor = 255 lowalarmcolor = 65280 highalarm = 85 lowalarm = 15 orientation = 0 facecolor = 12632256 normalcolor = 16777215 End Begin NedgaugeLib.Nedgauge Nedgauge1 Height = 1095 Left = 2280 TabIndex = 12 Top = 120 Width = 1095 _version = 65536 _extentx = 1931 _extenty = 1931 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 highalarmcolor = 255 lowalarmcolor = 65280 highalarm = 85 lowalarm = 15 orientation = 3 facecolor = 12632256 normalcolor = 16777215 End Begin NEDVUGaugeLib.Vugauge Vugauge1 Height = 1095 Left = 960 TabIndex = 11 Top = 120 Width = 1095 _version = 65536 _extentx = 1931 _extenty = 1931 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 highalarmcolor = 255 lowalarmcolor = 65280 highalarm = 85 lowalarm = 15 orientation = 3 facecolor = 12632256 tickmarks = 5 tickcolor = 0 End Begin NEDLED.LED2 LED21 Height = 2895 Left = 4440 TabIndex = 10 Top = 240 Width = 495 _version = 65536 _extentx = 873 _extenty = 5106 _stockprops = 0 value = 92 backcolor = 0 highlitecolor = 0 shadowcolor = 0 darkcolor = 0 numsegments = 20 thickness = 16 ledtype = -1 'True End Begin NEDLED.LED1 LED11 Height = 255 Left = 3360 TabIndex = 9 Top = 0 Width = 975 _version = 65536 _extentx = 1720 _extenty = 450 _stockprops = 0 value = 1755 decimalposition = 2 End Begin NEDLED.LED1 LED12 Height = 255 Left = 3360 TabIndex = 8 Top = 2160 Width = 975 _version = 65536 _extentx = 1720 _extenty = 450 _stockprops = 0 forecolor = 65535 value = 32755 decimalposition = 5 End Begin SliderLib.Slider Slider3 Height = 1455 Left = 120 TabIndex = 7 Top = 1800 Width = 615 _version = 65536 _extentx = 1085 _extenty = 2566 _stockprops = 1 needlecolor = 16777215 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 1 tickmarks = 13 tickcolor = 0 tickstyle = 0 thumbbitmap = "FORM1.frx":0000 centerbar = 4 End Begin SliderLib.Slider Slider1 Height = 375 Left = 840 TabIndex = 6 Top = 2280 Width = 2295 _version = 65536 _extentx = 4048 _extenty = 661 _stockprops = 1 bordercolor = 0 min = 0 max = 82 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 0 tickmarks = 5 tickcolor = 0 tickstyle = 2 centerbar = 4 End Begin KnobLib.Knob Knob4 Height = 495 Left = 3600 TabIndex = 5 Top = 960 Width = 495 _version = 65536 _extentx = 873 _extenty = 873 _stockprops = 1 needlecolor = 16777215 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 0 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 0 End Begin KnobLib.Knob Knob3 Height = 495 Left = 3600 TabIndex = 4 Top = 1560 Width = 495 _version = 65536 _extentx = 873 _extenty = 873 _stockprops = 1 needlecolor = 0 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 0 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 12632256 End Begin KnobLib.Knob Knob2 Height = 495 Left = 3600 TabIndex = 3 Top = 360 Width = 495 _version = 65536 _extentx = 873 _extenty = 873 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 17 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 0 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 16777215 End Begin NEDVUMeterLib.Vumeter Vumeter1 Height = 615 Left = 840 TabIndex = 2 Top = 2640 Width = 2295 _version = 65536 _extentx = 4048 _extenty = 1085 _stockprops = 1 needlecolor = 65535 bordercolor = 0 min = 0 max = 100 pos = 80 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 4 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 highalarmcolor = 255 lowalarmcolor = 65280 highalarm = 85 lowalarm = 15 orientation = 0 tickmarks = 11 tickcolor = 0 tickstyle = 2 End Begin KnobLib.Knob Knob1 Height = 735 Left = 3480 TabIndex = 1 Top = 2520 Width = 735 _version = 65536 _extentx = 1296 _extenty = 1296 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 50 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 3 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 3 facecolor = 16777215 End Begin SliderLib.Slider Slider2 Height = 1695 Left = 120 TabIndex = 0 Top = 0 Width = 615 _version = 65536 _extentx = 1085 _extenty = 2990 _stockprops = 1 bordercolor = 0 min = 0 max = 100 pos = 15 outerbevel = 1 innerbevel = 0 outerbevelwidth = 2 innerbevelwidth = 2 borderwidth = 2 shadowcolor = 8421504 hilitecolor = 16777215 orientation = 1 tickmarks = 11 tickcolor = 0 tickstyle = 0 thumbbitmap = "FORM1.frx":0272 centerbar = 4 End Attribute VB_Name = "Form1" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub HScroll1_Change() Slider1.Pos = HScroll1.value End Sub Private Sub HScroll1_Scroll() Slider1.Pos = HScroll1.value End Sub Private Sub Label6_Click() End Sub Private Sub a_Click() PhotoV1.Picture = "e:\images\juneau.bmp" End Sub Private Sub Knob1_ValueChanged(Pos As Integer) LED21.value = Pos End Sub Private Sub Knob2_ValueChanged(Pos As Integer) LED11 = Pos End Sub Private Sub Knob3_ValueChanged(Pos As Integer) LED12.value = Pos End Sub Private Sub Knob4_ValueChanged(Pos As Integer) LED12.value = Pos End Sub Private Sub Slider2_DblClick() Vugauge1.Pos = Slider2.Pos Nedgauge1.Pos = Slider2.Pos Nedgauge2.Pos = Slider2.Pos End Sub Private Sub Slider2_Scroll(ByVal value As Integer) Vugauge1.Pos = Slider2.Pos Nedgauge1.Pos = Slider2.Pos Nedgauge2.Pos = Slider2.Pos End Sub Private Sub Slider4_Scroll(ByVal value As Integer) Label3.Caption = Str(value) End Sub Private Sub VScroll1_Change() Slider2.Pos = 100 - VScroll1.value Slider3.Pos = 100 - VScroll1.value Slider4.Pos = 100 - VScroll1.value End Sub Private Sub VScroll1_Scroll() Slider2.Pos = 100 - VScroll1.value Slider3.Pos = 100 - VScroll1.value Slider4.Pos = 100 - VScroll1.value End Sub Private Sub Slider3_DblClick() Nedgauge3.Pos = Slider3.Pos Slider1.Pos = Slider3.Pos Vumeter1.Pos = Slider3.Pos End Sub Private Sub Slider3_Scroll(ByVal value As Integer) Nedgauge3.Pos = Slider3.Pos Slider1.Pos = Slider3.Pos Vumeter1.Pos = Slider3.Pos End Sub